From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 20 Nov 2002 14:37:19 +0000 (+0000)
Subject: (describe-variable): Look for (defvar . <sym>) in the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29577
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0ce247b9e724096fdc014e50de7fe652e530e2f6;p=emacs.git

(describe-variable): Look for (defvar . <sym>) in the
load-history since `defvar' now uses this format.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 245bbd0e8d0..46a72b32ba2 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -482,7 +482,7 @@ it is displayed along with the global value."
 	    ;; Make a hyperlink to the library if appropriate.  (Don't
 	    ;; change the format of the buffer's initial line in case
 	    ;; anything expects the current format.)
-	    (let ((file-name (symbol-file variable)))
+	    (let ((file-name (symbol-file (cons 'defvar variable))))
 	      (when (equal file-name "loaddefs.el")
 		;; Find the real def site of the preloaded variable.
 		(let ((location